set cent on
SET PROC TO SOSPRO
SET PROC TO ADDRPRO1
SET PROC TO BOXPROC
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
DR1='N:'
DR2='N:'
F1='PATIENT'
F11='NAME'
F12='FNAME'
F2='COMPANY'
FA2='REVENUEY'
FB2='REVENUEY'
FC2='ACT_PROY'
FD2='ACT_PHAY'
F100='MAIN_ARE'
F200='DRUGS'
F300='DISPOS'
F400='DOCTORS'
SELE 1
SET COLOR TO BG+/B, W+/N
clea
do addresss
do addrtitl with 'P A T I E N T   H I S T O R Y'
set cons off
set color to gr+/b
@  9,14 say "This programme allows you to view the               "
@ 12,14 say "MEDICAL PROCEDURES performed and the PHARMACEUTICAL "
@ 15,14 say "items (Drugs & Disposable) delivered to any PATIENT "
@ 18,14 say "during HIS/HER NINE LAST VISITS to the AEA CLINIC.  "
set color to r+/n
@ 22,25 say "To continue, Type any key ..."
wait ' '
set cons on
ANO='Y'
DO WHILE ANO='Y'
   SET COLOR TO BG+/B, W+/N
   @  7, 1 CLEA TO 23,78
   DO PCON7
ENDDO
clear
RETURN


